﻿Public Class ucTheKho

    Dim array As New List(Of String)
    Private Sub addArrValue()
        array.Add("Hôm Nay")
        array.Add("Tuần này")
        array.Add("Tháng này")
        array.Add("Quý này")
        array.Add("Năm Nay")
        For i = 0 To 15
            If i >= 12 Then
                array.Add(String.Format("Quý {0}", (i Mod 12) + 1))
            Else
                array.Add(String.Format("Tháng {0}", i + 1))
            End If
        Next
    End Sub
    Private Sub ucTheKho_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        addArrValue()
        For i = 0 To array.Count - 1
            Dim item As New DevExpress.XtraBars.BarEditItem
            itemCbb.Items.Add(array(i))
        Next
    End Sub
End Class
